home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / HAMRADIO / KAM401.ZIP / CALLLIST.PAS < prev    next >
Pascal/Delphi Source File  |  1989-03-02  |  485b  |  25 lines
  1. PROGRAM CALLLIST_Prog;
  2. USES CRT,DOS,
  3.      DBF4, SAYGET4,
  4.      BROWSE4;
  5.  
  6. TYPE
  7.   ROUTELIST = record
  8.                 deleted : boolean;
  9.                 name    : string[10];
  10.                 route   : string[30];
  11.                 comment : string[30];
  12.               end;
  13.  
  14. var  calllist : routelist;
  15.  
  16. begin
  17.   Select(1);
  18.   clrscr;
  19.   USE('CALLLIST.DBF',@calllist,SizeOf(calllist));
  20.   Set_BrowseWindow_To(1,1,80,24,2,'');
  21.   Browse('');
  22.   CloseDataBases;
  23.   clrscr;
  24. end.
  25.